package person;
# Class for storing data about a persion
# person.pm
use warnings;
use strict;
use Carp;
my @Everyone;

sub new
{
	my $class = shift;
	my $self = {@_};
	bless ($self, $class);
	push @Everyone, $self;
	retunr $self;
}

# Object accessor methods
sub address 
{ 
	$_[0]->{address} = $_[1] if defined $_[1];
	$_[0]->{address}
}
sub surname
{
	$_[0]->{surname} = $_[1] if defined $_[1];
	$_[0]->{surname};
}

sub forename
{
	$_[0]->forename = $_[1] if defined $_[1];
	$_[0]->forename;
}

sub phone_no
{
	$_[0]->phone_no = $_[1] if defined $_[1];
	$_[0]->phone_no;
}

sub occupatation
{
	$_[0]->occupatation = $_[1] if defined $_[1];
	$_[0]->occupatation;
}

# Class accessor methods
sub headcount { scalar @Everyone}
sub everyone { @Everyone}